home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / pcpm.arc / CPAMENU.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-04  |  1.4 KB  |  52 lines
  1. 10  REM **** CPAMENU ****
  2. 20  CLOSE
  3. 300  DIM B$(20)
  4. 310  O5=15          'NUMBER OF OPTIONS
  5. 320  A$="MENU OF PCPM OPTIONS"
  6. 330  FOR I=1 TO O5
  7. 340  READ B$(I)
  8. 350  NEXT I
  9. 360  PRINT
  10. 370  DATA "INFORMATION","ENTER/CHANGE SUBCONTRACTOR/COMMENT FILE"
  11. 372  DATA "ENTER/CHANGE INPUT FILE"
  12. 380  DATA "CREATE/CHANGE HOLIDAYS"
  13. 390  DATA "PERFORM CRITICAL PATH ANALYSIS","PERFORM CASH FLOW ANALYSIS"
  14. 400  DATA "PRODUCE BAR CHARTS"
  15. 410  DATA "SORT OUTPUT","EXTRACT OUTPUT BY SUBCONTRACTOR","CHECK NODE NUMBERS"
  16. 420  DATA "GET PRECEDENCE OR SUCCEEDENCE DISPLAY"
  17. 430  DATA "CONVERT WORKING DAYS TO PROJECT DAYS"
  18. 440  DATA "GENERATE CURRENT COST REPORT","CHANGE ALL NODE NUMBERS"
  19. 445  DATA "CONSOLIDATE UPDATE FILES TO INPUT FILES"
  20. 450  PRINT TAB(22);A$
  21. 460  PRINT
  22. 470  PRINT TAB(10);"EXIT PCPM SYSTEM";TAB(50);"-  0"
  23. 480  FOR I=1 TO O5
  24. 490  IF I>9 THEN 520
  25. 500  PRINT TAB(10);B$(I);TAB(50);"- ";I
  26. 510  GOTO 530
  27. 520  PRINT TAB(10);B$(I);TAB(50);"-";I
  28. 530  NEXT I
  29. 540  PRINT
  30. 550  INPUT "CHOOSE THE ACTION BY ENTERING THE CORRECT INTEGER ",N
  31. 560  PRINT
  32. 570  IF N=0 THEN 740
  33. 580  IF N>O5 OR N<0 THEN 430
  34. 590  ON N GOTO 600,620,610,630,640,650,660,670,680,690,700,710,720,730,735,530
  35. 600  CHAIN "CPAINFO"
  36. 610  CHAIN "CPACUI"
  37. 620  CHAIN "CPASBC"
  38. 630  CHAIN "CPAHOLY"
  39. 640  CHAIN "CPACPM"
  40. 650  CHAIN "CPACFA"
  41. 660  CHAIN "CPABAR"
  42. 670  CHAIN "CPASORT"
  43. 680  CHAIN "CPASUBS"
  44. 690  CHAIN "CPANODE"
  45. 700  CHAIN "CPAPRES"
  46. 710  CHAIN "CPADAYS"
  47. 720  CHAIN "CPACOS"
  48. 730  CHAIN "CPACORC"
  49. 735  CHAIN "CPAUPD"
  50. 740  PRINT:PRINT "EXITING PCPM SYSTEM - GOODBYE FOR NOW"
  51. 750  SYSTEM
  52.